home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Developer Essentials / MPW Interfaces & Libraries / PInterfaces / Notification.p < prev    next >
Encoding:
Text File  |  1992-01-29  |  1.4 KB  |  69 lines  |  [TEXT/MPS ]
  1.  
  2. {
  3. Created: Tuesday, September 10, 1991 at 2:10 PM
  4.  Notification.p
  5.  Pascal Interface to the Macintosh Libraries
  6.  
  7.   Copyright Apple Computer, Inc. 1989-1991
  8.   All rights reserved
  9. }
  10.  
  11.  
  12. {$IFC UNDEFINED UsingIncludes}
  13. {$SETC UsingIncludes := 0}
  14. {$ENDC}
  15.  
  16. {$IFC NOT UsingIncludes}
  17.  UNIT Notification;
  18.  INTERFACE
  19. {$ENDC}
  20.  
  21. {$IFC UNDEFINED UsingNotification}
  22. {$SETC UsingNotification := 1}
  23.  
  24. {$I+}
  25. {$SETC NotificationIncludes := UsingIncludes}
  26. {$SETC UsingIncludes := 1}
  27. {$IFC UNDEFINED UsingTypes}
  28. {$I $$Shell(PInterfaces)Types.p}
  29. {$ENDC}
  30. {$IFC UNDEFINED UsingOSUtils}
  31. {$I $$Shell(PInterfaces)OSUtils.p}
  32. {$ENDC}
  33. {$SETC UsingIncludes := NotificationIncludes}
  34.  
  35. CONST
  36. nmType = 8;
  37.  
  38. TYPE
  39. NMProcPtr = ProcPtr;
  40.  
  41. NMRecPtr = ^NMRec;
  42. NMRec = RECORD
  43.  qLink: QElemPtr;        {next queue entry}
  44.  qType: INTEGER;        {queue type -- ORD(nmType) = 8}
  45.  nmFlags: INTEGER;        {reserved}
  46.  nmPrivate: LONGINT;    {reserved}
  47.  nmReserved: INTEGER;    {reserved}
  48.  nmMark: INTEGER;        {item to mark in Apple menu}
  49.  nmIcon: Handle;        {handle to small icon}
  50.  nmSound: Handle;        {handle to sound record}
  51.  nmStr: StringPtr;        {string to appear in alert}
  52.  nmResp: NMProcPtr;        {pointer to response routine}
  53.  nmRefCon: LONGINT;        {for application use}
  54.  END;
  55.  
  56.  
  57. FUNCTION NMInstall(nmReqPtr: NMRecPtr): OSErr;
  58.  INLINE $205F,$A05E,$3E80;
  59. FUNCTION NMRemove(nmReqPtr: NMRecPtr): OSErr;
  60.  INLINE $205F,$A05F,$3E80;
  61.  
  62.  
  63. {$ENDC} { UsingNotification }
  64.  
  65. {$IFC NOT UsingIncludes}
  66.  END.
  67. {$ENDC}
  68.  
  69.